home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / world.arc / USCAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-14  |  1.4 KB  |  12 lines
  1. 5999  'COPYRIGHT 1985,1986 R.L. LLOYD
  2. 6000  CLS:RESTORE :FOR Q=1 TO 50:READ N$,LA,LO:PRINT Q;N$+SPACE$(15-LEN(N$)),:NEXT
  3. 6010      PRINT:INPUT"SELECT BY NUMBER";Q:IF Q=0 THEN Q=LASTA1
  4. 6020      IF Q>50 THEN GOTO 6000
  5. 6030      LASTA1=Q
  6. 6040      RESTORE:FOR X=1 TO Q:READ N$,LA1,LO1:NEXT:PRINT N$,LA1,LO1
  7. 6050  DATA "ALBANY",42.65,73.75,"ANNAPOLIS",38.98,76.3,"ATLANTA",33.75,84.38,"AUGUSTA",44.3,69.76,"AUSTIN",30.27,97.74,"BATON ROUGE",30.43,91.18,"BISMARCK",46.8,100.78,"BOISE",43.62,116.18,"BOSTON",42.35,71.05,"CARSON CITY",39.16,119.76
  8. 6060  DATA"CHARLESTON",38.35,81.63,"CHEYENNE",41.14,104.82,"COLUMBIA",34,81.1,"COLUMBUS",39.95,83,"CONCORD",43.2,71.53,"DENVER",39.73,104.98,"DES MOINES",41.58,93.61,"DOVER",39.15,75.55,"FRANKFORT",38.2,84.9,"HARRISBURG",40.26,76.88,"HARTFORD",41.76,72.65
  9. 6070  DATA"HELENA",46.58,112.03,"HONOLULU",21.3,157.85,"INDIANAPOLIS",39.76,86.15,"JACKSON",32.28,90.18,"JEFFERSON CITY",38.5,92.1,"JUNEAU",58.3,134.4,"LANSING",42.73,84.55,"LINCOLN",40.81,96.07,"LITTLE ROCK",34.73,92.26,"MADISON",43.07,89.38
  10. 6080  DATA"MONTGOMERY",32.36,86.3,"MONTPELIER",44.26,72.58,"NASHVILLE",36.16,86.78,"OKLAHOMA CITY",35.46,97.51,"OLYMPIA",47.1,122.9,"PHOENIX",33.45,112.06,"PIERE",44.37,100.34,"PROVIDENCE",41.83,71.4,"RALEIGH",34.76,78.63,"RICHMOND",37.54,77.4
  11. 6090  DATA"SACRAMENTO",38.56,121.48,"SALEM",44.93,123.02,"SALT LAKE CITY",40.75,111.89,"SANTA FE",35.68,105.93,"SPRINGFIELD",39.47,89.63,"ST PAUL",44.95,93.1,"TALLAHASSEE",30.43,84.26,"TOPEKA",39.05,95.65,"TRENTON",40.21,74.76
  12.